home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM BV3 / BMUG PD-ROM Version BV3 (CDRM1097900).iso / HyperCard / Utility / StoryBoarder 2.01 / background_3660.txt < prev    next >
Text File  |  1990-02-25  |  2KB  |  111 lines
  1. -- background: 3660 from stack: in.01
  2. -- bmap block id: 4142
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 2 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=295 top=266 right=291 bottom=322
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   if the visible of cd field "theHelp" then
  23.     lock screen
  24.     hide cd field "theHelp"
  25.     unlock screen with iris close
  26.   end if
  27.   visual dissolve to black
  28.   visual dissolve
  29.   go first cd of bg "Boards"
  30. end mouseUp
  31.  
  32.  
  33.  
  34. -- part 3 (button)
  35. -- low flags: 00
  36. -- high flags: 2000
  37. -- rect: left=103 top=266 right=291 bottom=130
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: 
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   lock screen
  49.   if the visible of card field "theHelp" then
  50.     hide card field "theHelp"
  51.     unlock screen with iris close
  52.   else
  53.     show card field "theHelp"
  54.     set the scroll of card field "theHelp" to 0
  55.     unlock screen with iris open
  56.   end if
  57. end mouseUp
  58.  
  59.  
  60.  
  61. -- part 4 (button)
  62. -- low flags: 00
  63. -- high flags: 2000
  64. -- rect: left=196 top=266 right=291 bottom=223
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: 
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   answer "Save a copy of this stack?" with "OK" or "Cancel"
  76.   if it is "OK" then
  77.     doMenu "Save a Copy..."
  78.   end if
  79. end mouseUp
  80.  
  81.  
  82.  
  83. -- part 5 (button)
  84. -- low flags: 00
  85. -- high flags: 2000
  86. -- rect: left=390 top=266 right=291 bottom=417
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 0 / 0
  89. -- text alignment: 1
  90. -- font id: 0
  91. -- text size: 12
  92. -- style flags: 0
  93. -- line height: 16
  94. -- part name: 
  95. ----- HyperTalk script -----
  96. on mouseUp
  97.   answer "What would you like to print?" with "Boards" or "Script" or "Cancel"
  98.   if it is not "Cancel" then
  99.     lock screen
  100.     go bg "Boards"
  101.     if it is "Boards" then
  102.       doMenu "Print Stack..."
  103.     else
  104.       doMenu "Print Report..."
  105.     end if
  106.     go card 1
  107.     unlock screen
  108.   end if
  109. end mouseUp
  110.  
  111.